home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / The Golden Parrot / background_5603.txt < prev    next >
Text File  |  1990-08-20  |  8KB  |  388 lines
  1. -- background: 5603 from stack: in
  2. -- bmap block id: 8177
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: destination template
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   global score
  10.   get score
  11.   put it into field "scorebox"
  12.  
  13.   put the number of lines in bkgnd field "textarea" into counter
  14.   repeat with num = 1 to counter
  15.     show bkgnd button num
  16.     add 1 to num
  17.   end repeat
  18.   repeat with counter = counter to 13
  19.     add 1 to counter
  20.     hide bkgnd button counter
  21.   end repeat
  22.  
  23.   get short name of recent card
  24.   if it is "River Trail" then
  25.     global score
  26.     subtract 5 from score
  27.     if score <= 0 then
  28.       visual effect dissolve slowly to black
  29.       visual effect scroll up slowly
  30.       go card "end"
  31.     end if
  32.     put score into field "scorebox"
  33.     get field "textarea" of card "River Trail"
  34.     put it&return&"Village" into field "textarea" of card "River Trail"
  35.   end if
  36.  
  37.   get short name of recent card
  38.   if it is "Mountain Trail" then
  39.     global score
  40.     subtract 5 from score
  41.     if score <= 0 then
  42.       visual effect dissolve slowly to black
  43.       visual effect scroll up slowly
  44.       go card "end"
  45.     end if
  46.     put score into field "scorebox"
  47.     get field "textarea" of card "Mountain Trail"
  48.     put it&return&"Jungle" into field "textarea" of card "Mountain Trail"
  49.   end if
  50.  
  51. end openCard
  52.  
  53.  
  54. -- part 1 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=6 top=28 right=54 bottom=349
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 21
  62. -- text size: 18
  63. -- style flags: 256
  64. -- line height: 24
  65. -- part name: cardname
  66.  
  67.  
  68. -- part 2 (field)
  69. -- low flags: 01
  70. -- high flags: 0000
  71. -- rect: left=49 top=58 right=314 bottom=500
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 21
  76. -- text size: 14
  77. -- style flags: 256
  78. -- line height: 18
  79. -- part name: textarea
  80.  
  81.  
  82. -- part 17 (button)
  83. -- low flags: 00
  84. -- high flags: 2000
  85. -- rect: left=22 top=57 right=76 bottom=51
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 16560 / 16560
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: number 1
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   get line 1 of bkgnd field "textarea"
  97.   visual effect dissolve
  98.   go to card it
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 4 (button)
  104. -- low flags: 00
  105. -- high flags: 2000
  106. -- rect: left=22 top=75 right=94 bottom=51
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 16560 / 16560
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: number 2
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   get line 2 of bkgnd field "textarea"
  118.   visual effect dissolve
  119.   go to card it
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 5 (button)
  125. -- low flags: 80
  126. -- high flags: 2000
  127. -- rect: left=22 top=93 right=112 bottom=51
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 16560 / 16560
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: number 3
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   get line 3 of bkgnd field "textarea"
  139.   visual effect dissolve
  140.   go to card it
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 6 (button)
  146. -- low flags: 80
  147. -- high flags: 2000
  148. -- rect: left=22 top=111 right=130 bottom=51
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 16560 / 16560
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: number 4
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   get line 4 of bkgnd field "textarea"
  160.   visual effect dissolve
  161.   go to card it
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 7 (button)
  167. -- low flags: 80
  168. -- high flags: 2000
  169. -- rect: left=22 top=129 right=148 bottom=51
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 16560 / 16560
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: number 5
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   get line 5 of bkgnd field "textarea"
  181.   visual effect dissolve
  182.   go to card it
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 8 (button)
  188. -- low flags: 80
  189. -- high flags: 2000
  190. -- rect: left=22 top=147 right=166 bottom=51
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 16560 / 16560
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: number 6
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   get line 6 of bkgnd field "textarea"
  202.   visual effect dissolve
  203.   go to card it
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 9 (button)
  209. -- low flags: 80
  210. -- high flags: 2000
  211. -- rect: left=22 top=165 right=184 bottom=51
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 16560 / 16560
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: number 7
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   get line 7 of bkgnd field "textarea"
  223.   visual effect dissolve
  224.   go to card it
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 10 (button)
  230. -- low flags: 80
  231. -- high flags: 2000
  232. -- rect: left=22 top=183 right=202 bottom=51
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 16560 / 16560
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: number 8
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   get line 8 of bkgnd field "textarea"
  244.   visual effect dissolve
  245.   go to card it
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 11 (button)
  251. -- low flags: 80
  252. -- high flags: 2000
  253. -- rect: left=22 top=201 right=220 bottom=51
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 16560 / 16560
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: number 9
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   get line 9 of bkgnd field "textarea"
  265.   visual effect dissolve
  266.   go to card it
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 12 (button)
  272. -- low flags: 80
  273. -- high flags: 2000
  274. -- rect: left=22 top=219 right=238 bottom=51
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 16560 / 16560
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: number 10
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   get line 10 of bkgnd field "textarea"
  286.   visual effect dissolve
  287.   go to card it
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 13 (button)
  293. -- low flags: 80
  294. -- high flags: 2000
  295. -- rect: left=22 top=237 right=256 bottom=51
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 16560 / 16560
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: number 11
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   get line 11 of bkgnd field "textarea"
  307.   visual effect dissolve
  308.   go to card it
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 14 (button)
  314. -- low flags: 80
  315. -- high flags: 2000
  316. -- rect: left=22 top=255 right=274 bottom=51
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 16560 / 16560
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: number 12
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   get line 12 of bkgnd field "textarea"
  328.   visual effect dissolve
  329.   go to card it
  330. end mouseUp
  331.  
  332.  
  333.  
  334. -- part 15 (button)
  335. -- low flags: 80
  336. -- high flags: 2000
  337. -- rect: left=22 top=273 right=292 bottom=51
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 16560 / 16560
  340. -- text alignment: 1
  341. -- font id: 0
  342. -- text size: 12
  343. -- style flags: 0
  344. -- line height: 16
  345. -- part name: number 13
  346. ----- HyperTalk script -----
  347. on mouseUp
  348.   get line 13 of bkgnd field "textarea"
  349.   visual effect dissolve
  350.   go to card it
  351. end mouseUp
  352.  
  353.  
  354.  
  355. -- part 16 (button)
  356. -- low flags: 80
  357. -- high flags: 2000
  358. -- rect: left=22 top=291 right=310 bottom=51
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 16560 / 16560
  361. -- text alignment: 1
  362. -- font id: 0
  363. -- text size: 12
  364. -- style flags: 0
  365. -- line height: 16
  366. -- part name: number 14
  367. ----- HyperTalk script -----
  368. on mouseUp
  369.   get line 14 of bkgnd field "textarea"
  370.   visual effect dissolve
  371.   go to card it
  372. end mouseUp
  373.  
  374.  
  375.  
  376. -- part 18 (field)
  377. -- low flags: 00
  378. -- high flags: 0000
  379. -- rect: left=449 top=34 right=54 bottom=503
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 0
  383. -- font id: 3
  384. -- text size: 12
  385. -- style flags: 0
  386. -- line height: 16
  387. -- part name: scorebox
  388.